program indicators
args v1

confirm variable `v1'

local vname "`v1'"
local root "I`v1'_"
levelsof `vname', local(levs)
local dctname `:value label `vname''
foreach i of numlist `levs' {
  generate byte `root'`i'=`vname'==`i'
  label variable `root'`i' "\ \ \  `:label `dctname' `i''"
}
drop `v1'


end
